Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Cls
ViewWindow 1,127,0,63,1,0
Green Text 3,45,"Worm 2000"
Green Text 9,27,"==================="
Text 16,27,"F1-Play"
Text 22,27,"F2-See Highscores"
Text 34,27,"F5-Reset Highscores"
Text 40,27,"F6-Quit"
Green Text 46,27,"==================="
Orange Text 51,20,"Remember Mat W 2x140"
Text 46,30," "
Lbl E
Do
0J
Getkey=79Prog "W1"
Getkey=69Prog "W2"
Getkey=39Goto A
LpWhile Getkey29
ClrText
Stop
Lbl A
ClrText
Locate 7,1,"WARNING!"
Locate 4,2,"This will clear"
Locate 5,3,"all values in"
Locate 5,4,"File4 List 1"
Locate 7,6,"F1 OK"
Locate 7,7,"F6 Cancel"
Lbl B
Getkey=29Goto D
Getkey=79Goto C
Goto B
Lbl C
File4
{0,0,0,0,0,0}List 1
Lbl D
PlotOn 45,3
Goto E